home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_exmh.idb / usr / freeware / lib / exmh-2.5 / flag.tcl.z / flag.tcl
Text File  |  2002-07-08  |  4KB  |  122 lines
  1. # 
  2. # flag.tcl
  3. #
  4. # Manage the iconic flag feedback.  The flag module understands three states,
  5. # but the icon only shows two states:
  6. #
  7. # State 0 - no unseen messages.
  8. # State 1 - newly arrived unseen messages.
  9. # State 2 - messages viewed while in State 1, but not necessarily all unseen
  10. #    messages viewed yet.
  11. #
  12. # The mailbox flag goes up on the transition to State 1 (from either State 0
  13. # or State 2), and the flag goes down on the transition to State 2.  So,
  14. # it is possible to have the flag down and still have unseen messages.  The
  15. # idea is that the flag means new mail has arrived since you last looked
  16. # at *something*.
  17. #
  18. # Copyright (c) 1993 Xerox Corporation.
  19. # Use and copying of this software and preparation of derivative works based
  20. # upon this software are permitted. Any distribution of this software or
  21. # derivative works must comply with all applicable United States export
  22. # control laws. This software is made available AS IS, and Xerox Corporation
  23. # makes no warranty about the software, its performance or its conformity to
  24. # any specification.
  25.  
  26. proc Flag_Init {} {
  27.     global flag exmh
  28.     set flag(state) init
  29.     
  30.     # Note - if you change the icon, there is some code in ExmhArgv
  31.     # that positions icons that can depend on the iconsize.
  32.     Preferences_Resource flag(iconup) iconUpBitmap flagup.bitmap
  33.     Preferences_Resource flag(icondown) iconDownBitmap flagdown.bitmap
  34.     Preferences_Resource flag(iconspool) iconSpoolBitmap flagspool.bitmap
  35.     Preferences_Resource flag(labelup) iconUpLabel {$flist(newMsgs) Unseen}
  36.     Preferences_Resource flag(labeldown) iconDownLabel exmh
  37.     Preferences_Resource flag(labelspool) iconSpoolLabel {$exmh(numUnInced) Spooled}
  38.     Preferences_Resource flag(iconupmask) iconUpMask flagup.mask
  39.     Preferences_Resource flag(icondownmask) iconDownMask flagdown.mask
  40.     Preferences_Resource flag(iconspoolmask) iconSpoolMask flagspool.mask
  41.     Preferences_Resource flag(iconupglyph) iconUpGlyph flagup.gif
  42.     Preferences_Resource flag(icondownglyph) iconDownGlyph flagdown.gif
  43.     Preferences_Resource flag(iconspoolglyph) iconSpoolGlyph flagspool.gif
  44.  
  45.     foreach i {iconup icondown iconspool iconupmask icondownmask iconspoolmask iconupglyph icondownglyph iconspoolglyph} {
  46.     if ![string match /* $flag($i)] {
  47.         set flag($i) $exmh(library)/$flag($i)
  48.     }
  49.     if ![file exists $flag($i)] {
  50.         set flag($i) 0
  51.     }
  52.     }
  53.     if {$exmh(slowDispColorIcon)} {
  54.     if [catch {
  55.         Exmh_Debug "Creating .icon"
  56.         toplevel .icon
  57.         wm group .icon .
  58.         pack [canvas .icon.c]
  59.         image create photo icondown -file $flag(icondownglyph)
  60.         image create photo iconup -file $flag(iconupglyph)
  61.         image create photo iconspool -file $flag(iconspoolglyph)
  62.         .icon.c configure -width [image width iconup] \
  63.             -height [image height iconup]
  64.         wm iconwindow . .icon
  65.     } err] {
  66.         Exmh_Debug "Can't create .icon: $err"
  67.         destroy .icon
  68.     }
  69.     }
  70.     FlagInner down icondown labeldown
  71. }
  72. proc Flag_NewMail { {folder {}} } {
  73.     FlagInner up iconup labelup
  74. }
  75. # Flag_MsgSeen drops the flag but retains the proper label
  76. # This is called after viewing a message
  77. proc Flag_MsgSeen { {folder {}} } {
  78.     global flist
  79.     if {$flist(newMsgs) > 0} {
  80.     FlagInner spool iconspool labelup
  81.     } else {
  82.     FlagInner down icondown labeldown
  83.     }
  84. }
  85. proc Flag_NoUnseen {} {
  86.     FlagInner down icondown labeldown
  87. }
  88. proc Flag_Spooled {} {
  89.     FlagInner spool iconspool labelspool
  90. }
  91. proc Flag_NoSpooled {} {
  92.     FlagInner down icondown labeldown
  93. }
  94. proc FlagInner {state icon label} {
  95.     global exmh flag
  96.     Exmh_Debug "In FlagInner $state $icon $label"
  97.     if {$flag(state) != $state} {
  98.     if [winfo exists .icon.c] {
  99.         Exmh_Debug "Setting flag glyph to $icon"
  100.         .icon.c delete image -tag icon
  101.         .icon.c create image 0 0 -anchor nw -image $icon -tag icon
  102.     } else {
  103.         Exmh_Debug "Setting flag bitmap to $icon"
  104.         wm iconbitmap . @$flag($icon)
  105.         if {$flag(${icon}mask) != 0} {
  106.         wm iconmask . @$flag(${icon}mask)
  107.         }
  108.     }
  109.     set flag(state) $state
  110.     Exmh_Debug "Set flag state to $state"
  111.     }
  112.     set l [uplevel #0 list $flag($label)]
  113.     if {[info exists flag(lastLabel)] &&
  114.     ([string compare $l $flag(lastLabel)] == 0)} {
  115.     return
  116.     }
  117.     wm title . $l
  118.     wm iconname . $l
  119.     set flag(lastLabel) $l
  120.  
  121. }
  122.